home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aap.d64 / conversions (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  81 lines
  1. 1 REM BY REX MERRITT, VANCOUVER, B.C.
  2. 2 POKE53280,11:POKE53281,15:PRINTCHR$(147)
  3. 3 PRINTCHR$(151);
  4. 4 PRINT"  D [146] DECIMAL TO HEX
  5. 5 [153]"  H WAIT HEX TO DECIMAL
  6. 6 PRINT"  B [146] BINARY TO DECIMAL
  7. 7 [153]"  N WAIT DECIMAL TO BINARY
  8. 8 PRINT"  Q [146] QUIT
  9. 9 [161]A$:[139]A$[178]""[167]9
  10. 10 [153][199](31);
  11. 11 [139]A$[178]"D"[167]17
  12. 12 [139]A$[178]"H"[167]51
  13. 13 [139]A$[178]"B"[167]101
  14. 14 [139]A$[178]"N"[167]115
  15. 15 [139]A$[178]"Q"[167][153]"LOAD":[128]
  16. 16 [137]9
  17. 17 [133]"DECIMAL VALUE=";Z
  18. 19 [139]Z[177]65535[167][153]"NOT OVER 65535":[137]17
  19. 20 [139]Z[179]1[167][153]"BAD ENTRY":[137]17
  20. 21 E[178]Z[173]4096:[141]33:A$[178]Y$
  21. 23 E[178](E[171]X)[172]16:[141]33:B$[178]Y$
  22. 25 E[178](E[171]X)[172]16:[141]33:C$[178]Y$
  23. 27 E[178](E[171]X)[172]16:[141]33:D$[178]Y$
  24. 29 [153]"HEX IS $";A$[170]B$[170]C$[170]D$
  25. 31 [137]3
  26. 33 X[178][181](E)
  27. 35 [139]X[179][178]9[167]Y$[178][196](X)
  28. 37 [139]X[178]10[167]Y$[178]" A"
  29. 39 [139]X[178]11[167]Y$[178]" B"
  30. 41 [139]X[178]12[167]Y$[178]" C"
  31. 43 [139]X[178]13[167]Y$[178]" D"
  32. 45 [139]X[178]14[167]Y$[178]" E"
  33. 47 [139]X[178]15[167]Y$[178]" F"
  34. 49 [142]
  35. 51 [133]"HEX VALUE (4 CHAR)=$";E$
  36. 53 [139][195](E$)[179][177]4[167][153]"BAD ENTRY":[137]51
  37. 55 F$[178][202](E$,1,1):Z[178][198](F$):[141]97
  38. 57 G$[178][202](E$,2,1):Z[178][198](G$):[141]97
  39. 59 H$[178][202](E$,3,1):Z[178][198](H$):[141]97
  40. 61 K$[178][202](E$,4,1):Z[178][198](K$):[141]97
  41. 63 [139][198](F$)[179]65[167]Y[178][197](F$)
  42. 65 X$[178]F$:[141]83:A[178]4096[172]Y
  43. 67 [139][198](G$)[179]65[167]Y[178][197](G$)
  44. 69 X$[178]G$:[141]83:B[178]256[172]Y
  45. 71 [139][198](H$)[179]65[167]Y[178][197](H$)
  46. 73 X$[178]H$:[141]83:C[178]16[172]Y
  47. 75 [139][198](K$)[179]65[167]Y[178][197](K$)
  48. 77 X$[178]K$:[141]83:D[178]Y
  49. 79 [153]"DECIMAL IS ";A[170]B[170]C[170]D
  50. 81 [137]3
  51. 83 [139]X$[178]"A"[167]Y[178]10
  52. 85 [139]X$[178]"B"[167]Y[178]11
  53. 87 [139]X$[178]"C"[167]Y[178]12
  54. 89 [139]X$[178]"D"[167]Y[178]13
  55. 91 [139]X$[178]"E"[167]Y[178]14
  56. 93 [139]X$[178]"F"[167]Y[178]15
  57. 95 [142]
  58. 97 [139](Z[179]48[176]Z[177]57)[175](Z[179]65[176]Z[177]70)[167][153]"BAD ENTRY":[137]51
  59. 99 [142]
  60. 101 [156]:[133]"BINARY NUMBER=";A$
  61. 103 N[178][195](A$)
  62. 105 [129]I[178]N[164]1[169][171]1
  63. 107 [139][202](A$,I,1)[178]"1"[167]B[178]2[174](N[171]I):C[178]B[170]C
  64. 109 [130]I
  65. 111 [153]"DECIMAL NUMBER =";C
  66. 113 [137]3
  67. 115 [156]:[133]"ENTER NUMBER";A
  68. 116 [134]C$(16):[139]A[177]65535[167][153]"NOT GREATER THAN 65535":[137]115
  69. 117 [139]A[179]1[167][153]"BAD ENTRY":[137]115
  70. 118 N[178][181]([188](A)[173][188](2)[170]1)
  71. 119 [129]I[178]1[164]N
  72. 121 C$(I)[178]"0"
  73. 123 D[178]2[174](N[171]I)
  74. 125 [139]D[179][178]A[167]C$(I)[178]"1":A[178]A[171]D
  75. 127 [130]
  76. 129 [153]"BINARY IS  ";
  77. 131 [139]N[179][178]8[167][129]I[178]1[164]N:[153]C$(I);:[130]:[137]137
  78. 133 [129]I[178]1[164](N[171]8):[153]C$(I);:[130]:[153]"-";
  79. 135 [129]I[178]N[171]7[164]N:[153]C$(I);:[130]
  80. 137 [153][199](17):[137]3
  81.